﻿Imports System.Data
Imports System.Data.SqlClient

Public Class Conexion

    Function conectar() As SqlConnection
        'Dim cnx As New SqlConnection("Data Source=JEFSISTEMAS\SQLDANNY;Initial Catalog=BD_SistemaInformacionPrueba;user id=sa;Password=d4nny$01")
        Dim cnx As New SqlConnection("Data Source=GULDABD01;Initial Catalog=BD_SistemaInformacionPrueba;user id=sa;Password=gld125cia")
        Return cnx
    End Function

End Class
